1 Public Class FrmDEFFECTIVE_RETURN_STOCKS_DATA_ADD
2
3 Private Sub FrmDEFFECTIVE_RETURN_STOCKS_DATA_ADD_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
4 Me.Text = "Return Details"
5 End Sub
6
7 Private Sub FrmDEFFECTIVE_RETURN_STOCKS_DATA_ADD_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8 If Split(Me.Text, " - ")(1) <> "Edit" Then
9 txtbarcode.Text = ""
10 txtdefqty.Text = ""
11 txtdesc.Text = ""
12 txtdtl.Text = ""
13 txtid.Text = ""
14 txtname.Text = ""
15 txtprice.Text = ""
16 FrmDEFFECTIVE_RETURN_STOCK_LIST.ShowDialog()
17 txtreturnqty.Select()
18 txtreturnqty.Text = "0"
19 Else
20 sqlSTR = "SELECT *, *, *, * " & _
21 "FROM ((((TBL_Suppliers " & _
22 "INNER JOIN TBL_Purchase_Order ON TBL_Suppliers.Supp_ID = TBL_Purchase_Order.Supp_ID) " & _
23 "INNER JOIN TBL_Deffective_PO_Return_Details ON TBL_Purchase_Order.Purchase_ID = TBL_Deffective_PO_Return_Details.Purchase_ID) " & _
24 "INNER JOIN TBL_Purchase_Detail ON TBL_Deffective_PO_Return_Details.Purchase_ID = TBL_Purchase_Detail.Purchase_ID) " & _
25 "INNER JOIN TBL_Category_Item_File ON TBL_Deffective_PO_Return_Details.Item_ID = TBL_Category_Item_File.Item_ID) " & _
26 "WHERE TBL_Deffective_PO_Return_Details.Purchase_ID =" & Split(globalID, "x")(1) & _
27 " AND TBL_Deffective_PO_Return_Details.Purchase_Detail_ID =" & Split(globalID, "x")(0)
28 ExecuteSQLQuery(sqlSTR)
29 If sqlDT.Rows.Count > 0 Then
30 txtbarcode.Text = sqlDT.Rows(0)("Item_Barcode")
31 End If
32 End If
33 End Sub
34
35 Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
36 Me.Close()
37 End Sub
38
39 Private Sub txtreturnqty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtreturnqty.TextChanged
40 txtreturnqty.Text = str_Filter(txtreturnqty, 48, 57, 0, 0)
41 End Sub
42
43 Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
44 With FrmDEFFECTIVE_RETURN_ADD
45 If txtid.Text = "" Or txtname.Text = "" Then
46 MsgBox("No details has found !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
47 Exit Sub
48 End If
49 If CDbl(txtreturnqty.Text) = 0 Then
50 MsgBox("Return quantity should not be equal to zero !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
51 Exit Sub
52 End If
53 If CDbl(txtreturnqty.Text) > CDbl(txtdefqty.Text) Then
54 MsgBox("Return quantity should not be greater than defective quantity !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
55 Exit Sub
56 End If
57 If Split(Me.Text, " - ")(1) = "Add" Then
58 For i = 0 To .lstitems.Items.Count - 1
59 If .lstitems.Items(i).Text = txtid.Text Then
60 MsgBox("Current details is already on the defective list !!", MsgBoxStyle.Information, "Sales and Inventory")
61 Exit Sub
62 End If
63 Next
64 .lstitems.Items.Add(txtid.Text)
65 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtdtl.Text)
66 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtname.Text)
67 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtdesc.Text)
68 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtprice.Text)
69 'If Label11.Text <> "" Then
70 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtdefqty.Text)
71 'End If
72
73 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtreturnqty.Text)
74 .lstitems.Items(.lstitems.Items.Count - 1).SubItems.Add(txtunit.Text)
75 Else
76 For i = 0 To .lstitems.Items.Count - 1
77 If .lstitems.Items(i).Text = txtid.Text Then
78 .lstitems.Items(i).SubItems(6).Text = txtreturnqty.Text
79 ' .lstitems.Items(i).SubItems(5).Text = (txtdefqty.Text - txtreturnqty.Text)
80 End If
81 Next
82 End If
83 .cmdSave.Enabled = True
84 End With
85 Me.Close()
86 End Sub
87 End Class
